home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / gl101.zip / VIEWICON.PRG < prev   
Text File  |  1991-06-27  |  2KB  |  58 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: VIEWICON.PRG      Copyright: Global Technologies Corporation
  4. *   Date Created: 10/27/90           Language: Clipper 5.0
  5. *   Time Created: 14:28:26             Author: Bill French
  6. *   /brief/library.src
  7. *.............................................................................
  8. #include "gllibr.ch"                             // include the gl language definitions
  9.  
  10. function Main(iconfile,switch)
  11.    do case
  12.       case pcount() == 0
  13.          clear screen
  14.          ? "Syntax:  viewicon <iconfile> <switct>"
  15.          ? "           where <switch> is /C for composite"
  16.          quit
  17.       case pcount() == 1
  18.          iconfile := if("."$iconfile,upper(iconfile),upper(iconfile)+".ICO")
  19.          switch   := ""
  20.       case pcount() == 1
  21.          iconfile := if("."$iconfile,upper(iconfile),upper(iconfile)+".ICO")
  22.          switch   := upper(switch)
  23.    endcase
  24.    clear screen                                     // clear the text screen
  25.    set graphics on                                  // graphics mode
  26.    set color to "w+/n"
  27.    set palette background to blue                   // change the background color
  28.    set icon to &iconfile.                           // load the sample supericon file
  29.    clear graphics screen                            // clear the graphics screen
  30.    draw "Icon File: "+upper(iconfile) at 02,28
  31.    if "/C" $ upper(switch)
  32.       draw super icon 0 at 08,14 overlay 1 2 3 4
  33.       draw super icon 4 at 15,14 overlay 5 6 7 8
  34.       draw "Icon 0" at 12,10
  35.       draw "Icon 4" at 19,10
  36.    else
  37.       draw super icon 0 at 08,14
  38.       draw super icon 1 at 08,28
  39.       draw super icon 2 at 08,42
  40.       draw super icon 3 at 08,56
  41.       draw "Icon 0" at 12,10
  42.       draw "Icon 1" at 12,24
  43.       draw "Icon 2" at 12,38
  44.       draw "Icon 3" at 12,52
  45.       draw super icon 4 at 15,14
  46.       draw super icon 5 at 15,28
  47.       draw super icon 6 at 15,42
  48.       draw super icon 7 at 15,56
  49.       draw "Icon 4" at 19,10
  50.       draw "Icon 5" at 19,24
  51.       draw "Icon 6" at 19,38
  52.       draw "Icon 7" at 19,52
  53.    endif
  54.    inkey(30)
  55.    set console on
  56.    set graphics off                                 // set to text mode
  57. return(Void)
  58.